home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / comms / boyan51a.arj / PCBOARDA.BSC < prev    next >
Text File  |  1993-11-15  |  2KB  |  83 lines
  1. \\
  2. \\ PCBoards script by Lee Breeden
  3. \\
  4.  
  5. \\ This script automates logons to PC-BOARD type Bulletin Boards.
  6. \\ You must set the following macros with BOYAN's configuration module:
  7. \\  \! = Macro # 111 = Your first name
  8. \\  \@ = Macro # 112 = Your last name
  9. \\ You must set a back quote character one space after your first
  10. \\ name.  ie:  Lee `
  11. \\ Script by:  Lee Breeden
  12.  
  13. \DM[CONNECTED TO PC-BOARD!]
  14. |LOGON
  15. \SVN[]\SVF[]\SVG[]\SVM[]\SVQ[]\SVS[]\SVU[]
  16. \SVY[%SC]\SVI[%SN]
  17. \gb[menu]
  18.  
  19.  
  20. |menu
  21. \BL[NAME]
  22. \BL[QUEST]
  23. \BL[FILES]
  24. \EB
  25.  
  26. |name
  27. \IE+%VN,X[\eb]
  28. \wp[]\dm21[Starting to log name onto %SN]
  29. \\CA-[\gs[script;calback]\eb]                        \\ Checks carrier
  30. \if+Press Escape twice[^[~^[{\gb[name]]             \\ looks for prompt
  31. \if+raphics[n q NS{\gb[name]]                       \\ looks for prompt
  32. \if+irst[\! \@{\gb[name]]                          \\ looks for prompt
  33. \if+logon[\! \@{\gb[name]]                          \\ looks for prompt
  34. \if+ast[\@{\gb[name]]                               \\ looks for prompt
  35. \if+required[{\gb[name]]                            \\ looks for prompt
  36. \if+Is this correct[{\gb[name]]                     \\ looks for prompt
  37. \if+(C) to continue logon as a new user?[\gs[newreg]]
  38. \if+Re-enter your name[r{\gb[name]]                 \\ error messages
  39. \if+assword[%PW{\svn[x]\eb]                         \\ looks for prompt
  40. {\pa[1]\gb[name]
  41.  
  42. |QUEST
  43. \IE+%VQ,X[\eb]
  44. \\WP[1]\\CA-[\AB]
  45. \DM[Script running - connected to %SN]
  46. \IF+(NS)[n{\GB[quest]]
  47. \IF+ontinue[{\GB[quest]]
  48. \IF+add a Oneliner?[N{\GB[quest]]
  49. \IF+mail[{\GB[quest]]
  50. \IF+(NS)non-stop?[n{\GB[quest]]
  51. \IF+Command?[{\SVQ[X]\EB]
  52. \IF+(Enter)[N{\GB[quest]]
  53. \IF+ (Enter)=none?[{\GB[quest]]
  54. \IF+ore[n{\GB[quest]]
  55. \IF+respond[{\GB[quest]]
  56. \if+Main[{\SVQ[X]\eb]
  57. \if+assword[%PW{]
  58. \WP[]^K{\GB[quest]
  59. \IF+ommand[{\SVQ[X]\EB]
  60. \EB
  61.  
  62. |FILES
  63. \\IE+%VF,X[\eb] \RC \lvi[8]
  64. \II+ ,%VI[\LVi[%IM]]
  65. \lvi[8]\svi[%Vi.dow]
  66. \FE+%S:%VI[\sc[script;dowlst]]
  67. \dm[Scaning for new files]
  68. \to[20]\WP[1]\CA-[\EB]
  69. \wf[ommand]N S ` \II+Broadcaster,%SN[55 | A]` NS{~\LD+[%B:files.new]
  70. \SVF[X]\EB
  71. \IF+ore[{]
  72. \SVQ[X]\EB
  73.  
  74. |logoff
  75. \dm[Getting ready to logoff]{
  76. \CA-[\AB]
  77. \ko[0]
  78. \wf[]g{
  79. \pa[4]
  80. \EB
  81.  
  82.  
  83.